home *** CD-ROM | disk | FTP | other *** search
/ The Scorpion King Cardz / The Scorpion King Cardz - Disc 1 - Mathays.iso / pc / Mathayus.exe / Mathayus.dxr / 00001_startmovie.ls next >
Encoding:
Text File  |  2002-03-26  |  4.7 KB  |  124 lines
  1. on prepareMovie
  2.   clearGlobals()
  3.   set the stageColor to 255
  4. end
  5.  
  6. on startMovie
  7.   global gNetStatus, gAllConnections, gDefaultConnection, gActiveConnections, gConnectionStatus, gProjWinName, gUserScreensaver, gReferMovie, gTargetMovie, gUserDiskDrives, gUILanguage, gOSLanguage, gStageWidth, gStageHeight, gStageRect, gStageCenter, gDeskTopRect, gDeskTopWidth, gDeskTopHeight, gDeskTopCenter, gMaxVolLevel, gSoundCardInstalled, gCurrentMasterMute, gOrigMasterMute, gCurrentMasterVolume, gOrigMasterVolume, gCurrentWaveMute, gOrigWaveMute, gCurrentWaveVolume, gOrigWaveVolume
  8.   set the exitLock to 1
  9.   if the platform contains "mac" then
  10.     dosRegister("2354F8E-8572C0")
  11.   else
  12.     dosRegister("6F1561B-12J0E6K")
  13.   end if
  14.   if the platform contains "mac" then
  15.     dcRegister(118506077)
  16.   else
  17.     dcRegister(151046374)
  18.   end if
  19.   gNetStatus = (the environment).internetConnected
  20.   put "gNetStatus = " & gNetStatus
  21.   gAllConnections = dcGetConnections()
  22.   put "gAllConnections = " & gAllConnections
  23.   gDefaultConnection = dcGetDefaultInternetConnection()
  24.   put "gDefaultConnection = " & gDefaultConnection
  25.   gActiveConnections = dcGetActiveConnections()
  26.   put "gActiveConnections = " & gActiveConnections
  27.   gConnectionStatus = dcGetConnectionStatus(gDefaultConnection)
  28.   put "gConnectionStatus = " & gConnectionStatus
  29.   gProjWinName = dosGetAppWindowID()
  30.   put "gProjWinName = " & gProjWinName
  31.   dosSetFrontWindow(gProjWinName)
  32.   if dosGetLastError() <> 0 then
  33.     put "windowing error:" & dosGetLastError()
  34.   end if
  35.   if the platform contains "win" then
  36.     gUserScreensaver = dosGetScreenSaver()
  37.     put "gUserScreensaver = " & gUserScreensaver
  38.     if dosGetScreenSaverActive() = 1 then
  39.       dosSetScreenSaverActive(0)
  40.     end if
  41.     dosDisableSystemKeys(1)
  42.     HideTaskBar()
  43.   end if
  44.   gReferMovie = "dumbi"
  45.   gTargetMovie = "dumbi"
  46.   gUserDiskDrives = dosGetDrives()
  47.   put "gUserDiskDrives = " & gUserDiskDrives
  48.   if dosGetLastError() <> 0 then
  49.     put "disk drive error:" & dosGetLastError()
  50.   end if
  51.   gUILanguage = (the environment).uiLanguage
  52.   put "gUILanguage = " & gUILanguage
  53.   gOSLanguage = (the environment).osLanguage
  54.   put "gOSLanguage = " & gOSLanguage
  55.   gStageWidth = 800
  56.   gStageHeight = 480
  57.   gStageRect = rect(0, 0, gStageWidth, gStageHeight)
  58.   gStageCenter = point(gStageWidth / 2, gStageHeight / 2)
  59.   gDeskTopRect = (the desktopRectList)[1]
  60.   put "gDeskTopRect = " & gDeskTopRect
  61.   gDeskTopWidth = gDeskTopRect[3] - gDeskTopRect[1]
  62.   gDeskTopHeight = gDeskTopRect[4] - gDeskTopRect[2]
  63.   gDeskTopCenter = point(gDeskTopWidth / 2, gDeskTopHeight / 2)
  64.   if (the environment).runMode = "Projector" then
  65.     ChangeDisplaySetting()
  66.   end if
  67.   if the centerStage <> 1 then
  68.     set the centerStage to 1
  69.   end if
  70.   gMaxVolLevel = 230
  71.   gSoundCardInstalled = dosIsSoundCardInstalled()
  72.   put "gSoundCardInstalled = " & gSoundCardInstalled
  73.   if gSoundCardInstalled = 1 then
  74.     gOrigMasterMute = dosGetVolume("Master Out Mute")
  75.     put "gOrigMasterMute = " & gOrigMasterMute
  76.     if gOrigMasterMute = 1 then
  77.       dosSetVolume("Master Out Mute", 0)
  78.       gCurrentMasterMute = dosGetVolume("Master Out Mute")
  79.       put "gCurrentMasterMute = " & gCurrentMasterMute
  80.       if dosGetLastError() <> 0 then
  81.         put "mute error:" & dosGetLastError()
  82.       end if
  83.     end if
  84.     gOrigMasterVolume = dosGetVolume("Master Out Volume")
  85.     put "gOrigMasterVolume = " & gOrigMasterVolume
  86.     if gOrigMasterVolume < 50000 then
  87.       dosSetVolume("Master Out Volume", 50000)
  88.       gCurrentMasterVolume = dosGetVolume("Master Out Volume")
  89.       put "gCurrentMasterVolume = " & gCurrentMasterVolume
  90.       if dosGetLastError() <> 0 then
  91.         put "volume error:" & dosGetLastError()
  92.       end if
  93.     end if
  94.     if the platform contains "win" then
  95.       gOrigWaveMute = dosGetVolume("Wave Out Mute")
  96.       put "gOrigWaveMute = " & gOrigWaveMute
  97.       if gOrigWaveMute = 1 then
  98.         dosSetVolume("Wave Out Mute", 0)
  99.         gCurrentWaveMute = dosGetVolume("Wave Out Mute")
  100.         put "gCurrentWaveMute = " & gCurrentWaveMute
  101.         if dosGetLastError() <> 0 then
  102.           put "wave mute error:" & dosGetLastError()
  103.         end if
  104.       end if
  105.       gOrigWaveVolume = dosGetVolume("Wave Out Volume")
  106.       put "gOrigWaveVolume = " & gOrigWaveVolume
  107.       if gOrigWaveVolume < 50000 then
  108.         dosSetVolume("Wave Out Volume", 50000)
  109.         gCurrentWaveVolume = dosGetVolume("Wave Out Volume")
  110.         put "gCurrentWaveVolume = " & gCurrentWaveVolume
  111.         if dosGetLastError() <> 0 then
  112.           put "volume error:" & dosGetLastError()
  113.         end if
  114.       end if
  115.     end if
  116.   end if
  117.   if updateUserIniFile() = 1 then
  118.     put "ini file updated successfully, starting card"
  119.   else
  120.     put "error updating ini file, starting card anyway"
  121.   end if
  122.   go("start")
  123. end
  124.